#9.2 Exerccio Anlise exploratria simultnea de duas variveis
#--------------------------------------------------------------------------------

#Crie uma funo para sada grfica de anlises exploratrias de duas variveis.
#Essa sada pode ter por exemplo boxplot, histograma, qq norm e y por x. 
. 
#Caso os valores de x e y forem desenhados em um mesmo grfico, defina cores diferentes. 
#As legendas devem ser em portugus e a sada (return) deve apresentar o sumrio das duas variveis e o coeficiente de correlao.

fun.grafico <- function(x,y)
{
            if(class(x)!="numeric"|class(y)!="numeric")
            {
                        stop("Suas variveis no so nmericas, modifique isso") 
            }
            if(length(x)!= length(y)) #testando comprimento
            {
                        stop("Seus vetores tm diferententes tamanhos")#A funo deve permitir a entrada de dois objetos vetores de mesmo tamanho (x e y)
            }
             par(mfrow=c(2,2), las=1, mar=c(3,3,2,2))#Dados gerais para os grficos
             plot(y~x, xlab="x", ylab="y")
             boxplot(x,y)
             ca <- list(x, y)
             install.packages("plotrix")	#Para histogramas com variveis em um mesmo grfico pode ser utilizada a funo multhist() do pacote plotrix. Baixe, instale o pacote e veja o help da funo.
	       library("plotrix")
             multhist(ca, col=c("blue", "red"))
             cor <- cor(x,y, method="pearson")#coeficiente de correlao
             qqnorm(y)
             qqline(y, col="red")
             sumario <- list(summary(x), summary(y), cor)
             names(sumario) = c("x", "y", "Coeficiente de correlao de Pearson")
             return(sumario)
}  

x <- abs(rnorm(100, 25, 1))#criando um vetor x
y <- abs(rnorm(100, 10, 0.5))#criando um vetor y

fun.grafico(x,y)#testando